;Exam2012H24HaruSpring
;---------------------------
MAIN START
	LAD GR1,FIG1
	LAD GR2,FIG2
	LAD GR3,ANS
	LD GR4,LEN1
	LD GR5,LEN2
	CALL ADDC
	ST GR0,ALEN
	RET
FIG1 DC '9462'
FIG2 DC '673'
LEN1 DC 4
LEN2 DC 3
ANS  DS 7
ALEN DS 1
	END
;--------------------
ADDC START
	RPUSH
	CPA GR4,GR5   ; ̔r
	JPL CONT
	PUSH 0,GR4    ;GR4 >= GR5 ƂȂ悤
	LD GR4,GR5    ;PƐQ
	POP GR5       ;|C^̓ւ
	PUSH 0,GR1;
	LD GR1,GR2;
	POP GR2;
CONT ADDA GR1,GR4 ;̃AhX̎̃AhX
	ADDA GR2,GR5
	LD GR0,=0;
	PUSH 0
LOOP1 LAD GR2,-1,GR2  ;̃AhX
	LD GR6,0,GR2     ;̐o
	AND GR6,=#000F   ;lƂĎo
LOOP2 LAD GR1,-1,GR1
	ADDA GR6,0,GR1   ;PZFlƐZ
	;ƂẲZʂ𓾂B
	ADDA GR6,GR0     ;グtOZ
	CPA GR6,='9'     ;グH
	JPL CARRY
	LD GR0,=0      ;グtONA
	JUMP NEXT
CARRY LD GR0,=1    ;グtOݒ
	SUBA GR6,=10   ; a @P
NEXT PUSH 0,GR6    ;ZʂPۑ
	SUBA GR4,=1    ; b@@A
	JZE END1
	SUBA GR5,=1    ; c@@@G
	JPL LOOP1
	LD GR6,=0
	JUMP LOOP2
END1 LD GR0,GR0    ;[グH
	JZE NOCARRY
	LD GR1,='1' ;
LOOP3 ST GR1,0,GR3 ;['1'ǉ
	LAD GR3,1,GR3
NOCARRY POP GR1    ;ZʂPo
	LD GR1,GR1
	JZE END2
	ADDA GR0,=1
	JUMP LOOP3
END2 RPOP
	RET
	END
;---------------------
